Mac100% 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Network / Lib-a-Pool 1.12 f.sit / Lib-a-Pool 1.12 f / Lib-a-Pool 1.12 / cards.xml < prev next >

Wrap

Text File | 1999-01-05 | 110KB | 2,272 lines

card_4434.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>4434</id> <filler1>0</filler1> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <true /> </dontSearch> <owner>2748</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3137.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>20</left> <top>35</top> <right>162</right> <bottom>49</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SetCreator" to cd btn "Creator of TEXTFilePop"end mouseup</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>183</left> <top>36</top> <right>233</right> <bottom>50</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>Creator of TEXTFile</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>2</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>188</left> <top>43</top> <right>193</right> <bottom>48</bottom> </rect> <style>popup</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>left</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>Creator of TEXTFilePop</name> <script>on mouseuphide meget the selectedtext of meselect line 0 of meif it is "ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃｫIﾃｫï｣ｿ..." then SelectEditor else SetCreatorend mouseupon SelectEditoranswer file "ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃï｣ｿﾃｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "APPL"if it is empty then exit SelectEditorget line 2 of MtGetFInfo(it)if it is not cd fld "Creator of TEXTFile" then put it into cd fld "Creator of TEXTFile"end SelectEditoron SetCreatorrepeatask "TEXTﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃε丑ﾃ嘉､ﾃ烏ﾃ[ﾃ運ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with cd fld "Creator of TEXTFile"if it is empty then exit SetCreatorif (length of it)<>4 thenbeepanswer "ﾃ丑ﾃ嘉､ﾃ烏ﾃ[ﾃ運ﾃﾃ陛㈳ﾃ頴ﾃ韻ﾃ曳ﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"else exit repeatend repeatif it is not cd fld "Creator of TEXTFile" then put it into cd fld "Creator of TEXTFile"end SetCreator</script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>20</left> <top>56</top> <right>178</right> <bottom>70</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SetMaxBytes" to cd fld "ﾃｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮ"end mouseup</script> </part> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>183</left> <top>57</top> <right>233</right> <bottom>71</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>ﾃｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮ</name> <script>on mouseupSetMaxBytesend mouseupon SetMaxBytesrepeatask "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦ﾃｩﾃｻﾃﾃεｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿64ﾃﾂｻﾃｨ窶30,000ﾃﾂｻﾃ｢竏ｫﾃ⒀" with meif it is empty then exit SetMaxBytesif it is not a integer thenbeepanswer "ﾃｮﾂｺﾃ､pﾃｪﾃｮﾃｩﾃｶﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifif it<64 or it>30000 thenbeepanswer "64ﾃﾂｻﾃｨ窶30,000ﾃﾂｻﾃ｢竏ｫﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifexit repeatend repeatrepeat while char 1 of it is "0"delete char 1 of itend repeatif it is not me then put it into meend SetMaxBytes</script> </part> <part> <id>6</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>20</left> <top>77</top> <right>158</right> <bottom>91</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SetMinBytes" to cd fld "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃεｧ竕暗ｭZﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃｪﾃ淌･ﾂｿ"end mouseup</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>183</left> <top>78</top> <right>233</right> <bottom>92</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃεｧ竕暗ｭZﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃｪﾃ淌･ﾂｿ</name> <script>on mouseupSetMinBytesend mouseupon SetMinBytesif me is "ﾃﾂｻﾃﾂｵ" then put "0" into ask_with else put me into ask_withrepeatask "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦ﾃｩﾃｻﾃﾃεｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿0ﾃ⑶39ﾃ②0ﾃ竕暗ｱ竕･ﾃｪﾃ淌･ﾂｿﾃ⒀" with ask_withif it is empty then exit SetMinBytesif it is not a integer thenbeepanswer "ﾃｮﾂｺﾃ､pﾃｪﾃｮﾃｩﾃｶﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifif it<0 or it>39 thenbeepanswer "0ﾃﾂｻﾃｨ窶39ﾃﾂｻﾃ｢竏ｫﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifexit repeatend repeatrepeat while char 1 of it is "0"delete char 1 of itend repeatif it is empty then get "ﾃﾂｻﾃﾂｵ"if it is not me then put it into meend SetMinBytes</script> </part> <part> <id>8</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>20</left> <top>98</top> <right>178</right> <bottom>112</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <part> <id>9</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>183</left> <top>99</top> <right>233</right> <bottom>113</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>ﾃ･ﾃｼﾃｧﾄｱﾃ鰻ﾃ嘉｡ﾃ[ﾃ曳ﾃ雨ﾃ叡ﾃ曳</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>10</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>196</left> <top>100</top> <right>201</right> <bottom>105</bottom> </rect> <style>popup</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <selectedLines> <integer>4</integer> </selectedLines> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱﾃ鰻ﾃ嘉｡ﾃ[ﾃ曳ﾃ雨ﾃ叡ﾃ曳Pop</name> <script>on mouseUphide meget the selectedtext of meif it is not cd fld "ﾃ･ﾃｼﾃｧﾄｱﾃ鰻ﾃ嘉｡ﾃ[ﾃ曳ﾃ雨ﾃ叡ﾃ曳" then put it into cd fld "ﾃ･ﾃｼﾃｧﾄｱﾃ鰻ﾃ嘉｡ﾃ[ﾃ曳ﾃ雨ﾃ叡ﾃ曳"end mouseUp</script> </part> <part> <id>11</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>20</left> <top>119</top> <right>158</right> <bottom>133</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script></script> </part> <part> <id>12</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>183</left> <top>120</top> <right>233</right> <bottom>134</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>Downlist.libﾃｨ窶榲ｨﾃｫﾃﾂｴ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>13</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>207</left> <top>121</top> <right>212</right> <bottom>126</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <selectedLines> <integer>4</integer> </selectedLines> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>Downlist.libﾃｨ窶榲ｨﾃｫﾃﾂｴPop</name> <script>on mouseUphide meget the selectedtext of meif it is not cd fld "Downlist.libﾃｨ窶榲ｨﾃｫﾃﾂｴ" then put it into cd fld "Downlist.libﾃｨ窶榲ｨﾃｫﾃﾂｴ"end mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>258</left> <top>38</top> <right>381</right> <bottom>50</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃｨ竅ﾃｧ笳甘ﾂｻﾃｨﾃﾃｳﾃｹﾃｨﾃ崚｣ﾂｵﾃﾃεｯ¥ﾃｩﾂｶ</name> <script></script> </part> <part> <id>15</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>258</left> <top>59</top> <right>421</right> <bottom>71</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱﾃｩﾃｻﾃ窶ｦﾃｫﾃづｯ竏づｩﾃｶﾃ⑥ﾃｨﾂｨﾃｯ竏づｩﾃｶﾃï｣ｿﾃ｣ﾃ甘ｯﾂ </name> <script></script> </part> <part> <id>16</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>258</left> <top>80</top> <right>480</right> <bottom>92</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>Lipsﾃ映ﾃ[ﾃ運ﾃｧﾃ古ｨﾃｺﾃｩﾃｻﾃ窶ｦﾃ､mﾃｮFﾃﾃε雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃ竏</name> <script></script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>258</left> <top>101</top> <right>480</right> <bottom>113</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>Downlist.libﾃﾃεｬ窶｡ﾃｳeﾃｨﾂ｡ﾃ｣ﾃｩﾃｩﾃｻﾃ②ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ窶｡ﾃｧﾃ古ｨﾃｺ</name> <script></script> </part> <part> <id>18</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>258</left> <top>122</top> <right>437</right> <bottom>134</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>FORUM/LIBﾃｯﾂﾃﾃεｫIﾃｫï｣ｿﾃ榎ﾃ叡ﾃ益ﾃ陰ﾃ叡ﾃ益</name> <script>on mouseUpget hilite of mesend "VisiPop it" to cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦"end mouseUp</script> </part> <content> <layer>card</layer> <id>1</id> <text><span class="style4">EXTﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃε丑ﾃ嘉､ﾃ烏ﾃ[ﾃ運ﾃ⑦</span><span class="style3"></span></text> </content> <content> <layer>card</layer> <id>2</id> <text>ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃｫIﾃｫï｣ｿ...ﾃｩﾃ凝ｬﾂｸﾃｳﾃ...</text> </content> <content> <layer>card</layer> <id>3</id> <text>YoED</text> </content> <content> <layer>card</layer> <id>4</id> <text>ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦ﾃｩﾃｻﾃﾃεｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃ⑦</text> </content> <content> <layer>card</layer> <id>5</id> <text>2048</text> </content> <content> <layer>card</layer> <id>6</id> <text>ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃεｧ竕暗ｭZﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃｪﾃ淌･ﾂｿﾃ⑦</text> </content> <content> <layer>card</layer> <id>7</id> <text>3</text> </content> <content> <layer>card</layer> <id>8</id> <text>ﾃ鰻ﾃ嘉｡ﾃ[ﾃ曳ﾃ雨ﾃ叡ﾃ曳ﾃ･ﾃｼﾃｧﾄｱﾃｳpﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ⑦</text> </content> <content> <layer>card</layer> <id>9</id> <text>ﾃ､mﾃｮFﾃ竏妥ﾃ</text> </content> <content> <layer>card</layer> <id>10</id> <text>LipsPDSF-ﾃ､mﾃｮFﾃ竏妥ﾃ</text> </content> <content> <layer>card</layer> <id>11</id> <text>Downlist.libﾃﾃεｨ窶榲ｨﾃｫﾃﾂｴﾃｯﾋ堙ｱ@ﾃ⑦</text> </content> <content> <layer>card</layer> <id>12</id> <text>ﾃ､mﾃｮFﾃ竏妥ﾃ</text> </content> <content> <layer>card</layer> <id>13</id> <text>ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶﾃｭﾂｫﾃ｢ﾂ｡ﾃｨﾃｫﾃｧﾃｻ-ﾃ､mﾃｮFﾃ竏妥ﾃ</text> </content> <content> <layer>card</layer> <id>14</id> <text>ﾃ竏妥ﾃﾃﾂｵﾃﾂｻﾃﾂ｢</text> </content> <name>ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ</name> <script></script> </card> card_3670.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3670</id> <filler1>0</filler1> <bitmap>BMAP_2116.pbm</bitmap> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <true /> </dontSearch> <owner>2748</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3137.css" /> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>35</left> <top>6</top> <right>153</right> <bottom>20</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SetDLPath" to cd fld "Path of Downlist"end mouseup</script> </part> <part> <id>6</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>80</left> <top>18</top> <right>477</right> <bottom>45</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>Path of Downlist</name> <script>on mouseupSetDLPathend mouseupon SetDLPathget MtSelectFldr()if it is empty then exit SetDLPathif it is not me then put it into meend SetDLPath</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>35</left> <top>49</top> <right>144</right> <bottom>63</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SelectLips" to cd fld "Path of Lips"end mouseup</script> </part> <part> <id>8</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>80</left> <top>61</top> <right>477</right> <bottom>88</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>Path of Lips</name> <script>on mouseupSelectLipsend mouseupon SelectLipsget MtSelectFldr()if it is empty then exit SelectLipsif it is not me thenput it into meput "ReLoad" into cd btn 4 of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦"end ifend SelectLips</script> </part> <part> <id>41</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>35</left> <top>92</top> <right>149</right> <bottom>106</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "SetPDSF" to cd btn "Path of PDSFPop"end mouseup</script> </part> <part> <id>42</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>80</left> <top>104</top> <right>477</right> <bottom>131</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>Path of PDSF</name> <script>on mousedownsend "PDSFExistCheck" to cd btn "Path of PDSFPop"ShowPopend mousedown</script> </part> <part> <id>44</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>248</left> <top>113</top> <right>253</right> <bottom>118</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Path of PDSFPop</name> <script>on mouseUphide meget word 2 of the selectedline of meif it=1 thenselect line 0 of meSetPDSFelse if it=3 then put "ﾃ⑥ﾃ⑥ﾃ⑥ﾃｫIﾃｫï｣ｿﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃﾂｵﾃ窶ｹﾃ竏妥⑥ﾃ⑥ﾃ⑥" into cd fld "Path of PDSF"else put the selectedtext of me into cd fld "Path of PDSF"PDSFExistCheckend mouseUpon mouseleavePDSFExistCheckend mouseleave------------------------------------------------------------------------------------on SetPDSFanswer file "ﾃ･ﾃｼﾃｧﾄｱﾃｩﾃｻﾃ窶ｦﾃｩgﾃｳpﾃ竏妥ﾃPDSFﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津｢竏ｫﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit to hypercardput it into PDSFPathopen file PDSFPathread from file PDSFPath until returnclose file PDSFPathif it is not ("--For PDS-Finder,Cooked" & return) thenbeepanswer "PDSF(Cookedﾃ･`ﾃｩﾃ)ﾃﾃε駅ﾃ叡ﾃ雲ﾃ[ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit to hypercardend ifif PDSFPath is not cd fld "Path of PDSF" then put PDSFPath into cd fld "Path of PDSF"if PDSFPath is in me then select line MtListMatch(me,PDSFPath) of meelseput PDSFPath & return after meselect last line of meend ifend SetPDSFon PDSFExistCheckrepeat with i = number of lines of me down to 4if there is not a file (line i of me) then delete line i of meend repeatend PDSFExistCheck</script> </part> <part> <id>9</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>35</left> <top>133</top> <right>133</right> <bottom>147</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "mouseup" to cd fld "ﾃﾂｯﾃｳpﾃｯﾃ"end mouseup</script> </part> <part> <id>11</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>138</left> <top>132</top> <right>186</right> <bottom>148</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name></name> <script>on mouseupsend "mouseup" to cd fld "ﾃﾂｯﾃｳpﾃｯﾃ"end mouseup</script> </part> <part> <id>12</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>181</left> <top>135</top> <right>211</right> <bottom>148</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>ﾃﾂｯﾃｳpﾃｯﾃ</name> <script>on mouseupask "ﾃﾂｯﾃｳpﾃｯﾃ妥ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with meif it is empty then exit mouseupif it is not me thenput it into mesend "Example" to cd fld "ﾃﾂｯﾃｳpﾃｳﾂｷ"end ifend mouseup</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>214</left> <top>135</top> <right>256</right> <bottom>147</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃｬﾋ凖ｯt</name> <script>on mouseupsend "Example" to cd fld "ﾃﾂｯﾃｳpﾃｳﾂｷ"end mouseup</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>256</left> <top>136</top> <right>309</right> <bottom>148</bottom> </rect> <style>checkbox</style> <showName> <true /> </showName> <highlight> <true /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃ欝ﾃ韻ﾃ浦</name> <script>on mouseupsend "Example" to cd fld "ﾃﾂｯﾃｳpﾃｳﾂｷ"end mouseup</script> </part> <part> <id>15</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>80</left> <top>147</top> <right>477</right> <bottom>161</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <true /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>10</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>13</textHeight> <name>ﾃﾂｯﾃｳpﾃｳﾂｷ</name> <script>on Exampleput cd fld "ﾃﾂｯﾃｳpﾃｯﾃ" & " FFORUM 12-0123 : " into ExStrif the hilite of cd btn "ﾃｬﾋ凖ｯt" then put "75/12/10 " after ExStrif the hilite of cd btn "ﾃ欝ﾃ韻ﾃ浦" then put "1234567 " after ExStrput "<<ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺ>>" after ExStrput ExStr into meend Exampleon mouseupsend "mouseup" to cd fld "ﾃﾂｯﾃｳpﾃｯﾃ"end mouseup</script> </part> <content> <layer>card</layer> <id>5</id> <text>Downlist.libﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ⑦</text> </content> <content> <layer>card</layer> <id>7</id> <text>Lipsﾃ映ﾃ[ﾃ運ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ⑦</text> </content> <content> <layer>card</layer> <id>9</id> <text>ﾃ丑ﾃ嘉､ﾃ叡ﾃ鋭ﾃ嘉ｬﾃ碓ﾃ･`ﾃｩﾃﾃ⑦</text> </content> <content> <layer>card</layer> <id>11</id> <text>ﾃﾂｯﾃｳpﾃｯﾃ妥⑦</text> </content> <content> <layer>card</layer> <id>12</id> <text>--></text> </content> <content> <layer>card</layer> <id>15</id> <text>--> FFORUM 12-0123 : 75/12/10 <<ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺ>></text> </content> <content> <layer>card</layer> <id>41</id> <text>ﾃ･ﾃｼﾃｧﾄｱﾃｳpPDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ⑦</text> </content> <content> <layer>card</layer> <id>44</id> <text>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｫIﾃｫï｣ｿ...-ﾃｫIﾃｫï｣ｿﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃ竏</text> </content> <name>ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ</name> <script></script> </card> card_2967.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>2967</id> <filler1>0</filler1> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <true /> </dontSearch> <owner>2748</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3137.css" /> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>11</top> <right>324</right> <bottom>26</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script></script> </part> <part> <id>5</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>26</top> <right>501</right> <bottom>120</bottom> </rect> <style>scrolling</style> <autoSelect> <true /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <true /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>FoundField</name> <script>on mouseupif me is empty thenselect line 0 of mepass mouseupend ifsend "AddToMe (the selectedtext of me & return)" to cd fld "DownlistField"select line 0 of meend mouseup</script> </part> <part> <id>6</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>124</top> <right>501</right> <bottom>155</bottom> </rect> <style>scrolling</style> <autoSelect> <true /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <true /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>DownlistField</name> <script>on mouseupif me is empty then select line 0 of meelseif the optionkey is down thenif the shiftkey is down then send "NomalClip" to cd btn "DownlistPop" else send "FomalClip" to cd btn "DownlistPop"end ifend ifend mouseup------------------------------------------------------------------------------------on AddToMe SelDownif me is not empty thenrepeat with i = 1 to number of lines of meif line i of me is not in SelDown then put line i of me & return after SelDownend repeatend ifsort lines of SelDown by word 1 to 2 of eachput deleteLastReturn(SelDown) into meend AddToMe</script> </part> <part> <id>7</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>155</top> <right>501</right> <bottom>170</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>12</textHeight> <name>Messages</name> <script>on mouseuppass mouseupend mouseup</script> </part> <part> <id>9</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>324</left> <top>11</top> <right>370</right> <bottom>26</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>outline</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>10</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>370</left> <top>11</top> <right>414</right> <bottom>26</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>outline</textStyle> <name>ﾃｨﾂ｡ﾃ｣ﾃｩ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>11</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>414</left> <top>11</top> <right>501</right> <bottom>26</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>Downlist</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>12</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>381</left> <top>14</top> <right>386</right> <bottom>19</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>ﾃｨﾂ｡ﾃ｣ﾃｩPop</name> <script>on mouseUphide meget the selectedtext of meselect line 0 of meif it is "Foundﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄" then put empty into cd fld "FoundField"if it is "Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄" then put empty into cd fld "DownlistField"if it is "Found/Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄" thenput empty into cd fld "FoundField"put empty into cd fld "DownlistField"end ifselect line 0 of cd fld "DownlistField"end mouseUp</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>11</left> <top>120</top> <right>501</right> <bottom>124</bottom> </rect> <style>rectangle</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃｭ竕､ﾃｪﾃ</name> <script>on mousewithinput top of cd fld "DownlistField" into DTopput bottom of cd fld "DownlistField" into DBottomput the ticks into PrevTksput 0 into acurCountrepeat until the mouse is downif the mouseloc is not within rect of me then exit mousewithinget the ticksif (it-PrevTks)>2 thenput it into PrevTksset cursor to 300+(item (acurCount mod 14)+1 of me)add 1 to acurCountend ifend repeatrepeat until the mouse is upset top of me to max(57,min((the mousev)-1,DBottom-35))get the ticksif (it-PrevTks)>2 thenput it into PrevTksset cursor to 400+(item (acurCount mod 14)+1 of me)add 1 to acurCountend ifend repeatif (bottom of me)<>DTop thenlock screenset rect of cd fld "FoundField" to 11,26,501,(top of me)set rect of cd fld "DownlistField" to 11,(bottom of me),501,DBottomunlock screenend ifend mousewithin</script> </part> <part> <id>15</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>335</left> <top>12</top> <right>340</right> <bottom>17</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱPop</name> <script>on mouseUphide meget word 1 of the selectedtext of meselect line 0 of meFileFind itend mouseUp------------------------------------------------------------------------------------on FileFind Methodif Method is "PDSF" thenput cd fld "Path of PDSF" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ" into PDSFPathif (PDSFPath is "ﾃ⑥ﾃ⑥ﾃ⑥ﾃｫIﾃｫï｣ｿﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃﾂｵﾃ窶ｹﾃ竏妥⑥ﾃ⑥ﾃ⑥") or (there is not a file PDSFPath) then put ask_PDSFPath() into PDSFPathend ifput ask_FindUp_String() into FindUp_Stringput hilite of cd btn "ﾃ･ﾃｼﾃｧﾄｱﾃｩﾃｻﾃ窶ｦﾃｫﾃづｯ竏づｩﾃｶﾃ⑥ﾃｨﾂｨﾃｯ竏づｩﾃｶﾃï｣ｿﾃ｣ﾃ甘ｯﾂ " of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Caselock screenset the scroll of cd fld "FoundField" to 0put empty into cd fld "FoundField"unlock screen with dissolve fastput "ﾃ･ﾃｼﾃｧﾄｱﾃ⑦" & quote & FindUp_String & quote & "ﾃ⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"if Method is "Lips" then put FindUpLips(FindUp_String,Case) into Found else put FindUpPDSF(PDSFPath,FindUp_String,Case) into Foundset cursor to noneif Found is empty then put "ﾃ･ﾃｼﾃｧﾄｱﾃ⑦" & quote & FindUp_String & quote & "ﾃ⑤ﾃ⑤ﾃ⑤" & "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃ陛ｮ竕ﾃ･ﾂｩﾃ竕･ﾃﾃ催窶ｹﾃﾏ\ﾃﾃ津竕暗ﾂｵﾃﾎｩﾃ③" into cd fld "Messages"elseput "ﾃ･ﾃｼﾃｧﾄｱﾃ⑦" & quote & FindUp_String & quote & "ﾃ⑤ﾃ⑤ﾃ⑤" & (number of lines of Found) & "ﾃ･ﾂｬﾃﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"wait 30 ticksif (length of Found)<=30001 thenlock screenput deleteLastReturn(Found) into cd fld "FoundField"unlock screen with dissolve fastelsebeepanswer "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂﾃ邃｢ﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃﾃε･ﾂｿﾃ､Eﾃï｣ｿﾃｭﾂ･ﾃﾂｶﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" & return & "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ窶ｦﾃｨﾃｫﾃﾂｴﾃｨoﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" or "ﾃｨﾃｫﾃﾂｴﾃｨoﾃ竏"if it is "ﾃｨﾃｫﾃﾂｴﾃｨoﾃ竏" thenask file "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂﾃﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃｯ竄ｬﾃｫ竏づｱﾂｺﾃ⑦" with "[ﾃ･ﾃｼﾃｧﾄｱ]" && quote & FindUp_String & quoteif it is not empty then MtWriteFile it,Found,cd fld "Creator of TEXTFile" of cd "Prefs"end ifend ifend ifwait 30 tickslock screenput empty into cd fld "Messages"unlock screen with dissolve fastend FileFind------------------------------------------------------------------------------------function FindUpLips FindUp_String,Caseget MtFilesInFldr(cd fld "Path of Lips" of cd "Prefs","T:TEXT")if it is empty thenbeepanswer "Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ窶ｦﾃ映ﾃ[ﾃ運ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit to hypercardend ifput it into Searching_Lipsesput empty into Foundput cd btn "ﾃ･ﾃｼﾃｧﾄｱ" into acurListrepeat with i = 1 to number of lines of Searching_Lipsesset cursor to 560+(item ((i-1) mod 4)+1 of acurList)get PathToFile(line i of Searching_Lipses)put space before word 2 of itput it into Now_Searching_LibNumberput "ﾃ･ﾃｼﾃｧﾄｱﾃ⑦" & quote & FindUp_String & quote & "ﾃ⑤ﾃ⑤ﾃ⑤" & Now_Searching_LibNumber into cd fld "Messages"get MtReadFile(line i of Searching_Lipses)if FindUp_String is in it then put UxFindUpPDSF(it,FindUp_String,Now_Searching_LibNumber,Case) after Foundend repeatreturn Foundend FindUpLips------------------------------------------------------------------------------------function FindUpPDSF PDSFPath,FindUp_String,Caseget "--"open file PDSFPathrepeat while char 1 to 2 of it is ("--")read from file PDSFPath until returnend repeatput empty into Foundput 0 into acurCountput cd btn "ﾃ･ﾃｼﾃｧﾄｱ" into acurListrepeat until it is emptyset cursor to 560+(item (acurCount mod 4)+1 of acurList)add 1 to acurCountput LenForm(10,after,space,word 1 of it) & char 1 to 2 of word 2 of it into Now_Searching_LibNumberput "ﾃ･ﾃｼﾃｧﾄｱﾃ⑦" & quote & FindUp_String & quote & "ﾃ⑤ﾃ⑤ﾃ⑤" & Now_Searching_LibNumber into cd fld "Messages"read from file PDSFPath for last word of itif FindUp_String is in it then put UxFindUpPDSF(it,FindUp_String,Now_Searching_LibNumber,Case) after Foundread from file PDSFPath until returnend repeatclose file PDSFPathreturn Foundend FindUpPDSF------------------------------------------------------------------------------------function ask_PDSFPathanswer file "ﾃ･ﾃｼﾃｧﾄｱﾃ竏妥ﾃPDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit to hypercardput it into PDSFPathopen file PDSFPathread from file PDSFPath until returnclose file PDSFPathif it is not ("--For PDS-Finder,Cooked") & return thenbeepanswer "PDSF(Cookedﾃ･`ﾃｩﾃ)ﾃﾃε駅ﾃ叡ﾃ雲ﾃ[ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit to hypercardend ifreturn PDSFPathend ask_PDSFPath------------------------------------------------------------------------------------function ask_FindUp_Stringput cd fld "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃεｧ竕暗ｭZﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮﾃｪﾃ淌･ﾂｿ" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Min_Lenif Min_Len is "ﾃﾂｻﾃﾂｵ" thenrepeatask "ﾃ･ﾃｼﾃｧﾄｱﾃ竏妥ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津｢竏ｫﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿40ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃ｢竏ｫﾃ⒀"if it is empty then exit to hypercardif (length of it)>40 thenbeepanswer "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃ40ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃ｢竏ｫﾃ竕暗ｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"else return itend repeatelserepeatask "ﾃ･ﾃｼﾃｧﾄｱﾃ竏妥ﾃ暗ｯ竏づｩﾃｶﾃｳﾃ津ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津｢竏ｫﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿" & Min_Len & "ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃｨ窶40ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃ｢竏ｫﾃ⒀"if it is empty then exit to hypercardif (length of it)<Min_Len thenput it into Fstr_BackUpbeepanswer "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃ" & Min_Len & "ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃｨ窶榲竕暗ｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with "ﾃ｣竕ﾃｪﾃ淌ｩﾂｿﾃｧs" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit to hypercard else return Fstr_BackUpend ifif 40<(length of it) thenbeepanswer "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ催ﾃ40ﾃ頴ﾃ韻ﾃ曳ﾃﾂｻﾃ｢竏ｫﾃ竕暗ｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with "OK" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit to hypercard else next repeatend ifreturn itend repeatend ifend ask_FindUp_String</script> </part> <part> <id>17</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>438</left> <top>15</top> <right>443</right> <bottom>20</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>DownlistPop</name> <script>on mouseUphide meget the selectedtext of meselect line 0 of meput cd fld "Creator of TEXTFile" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Creatorif it is "ﾃｯ竄ｬﾃｫ竏" then Save_Downlist Creatorelse if it is "ﾃｯﾂﾃｱﾂｺﾃ竕暗ｯ竄ｬﾃｫ竏" then Save_Downlist Creator,anyelse if it is "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" then Read_Downlistelse if it is "ﾃｫﾂｺﾃﾃゥownlistﾃﾂｩﾃﾃﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" then Read_Downlist anyelse if it is "ﾃｨﾂ｡ﾃ｣ﾃｩ" then Clear_Downlistelse if it is "Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃﾃεｭﾂﾃｨﾃ古嘘ﾃ鋭ﾃ[" then NomalClipelse if it is "Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃﾃεｭﾃ凝･^ﾃ嘘ﾃ鋭ﾃ[" then FomalClipend mouseUp------------------------------------------------------------------------------------on Save_Downlist Creatorif cd fld "DownlistField" is empty then exit to Hypercardput cd fld "Path of Downlist" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ" into DownlistFolderPathif the paramcount is 2 thenask file "Downlistﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｯ竄ｬﾃｫ竏づｱﾂｺ:" with "Downlist.lib"if it is empty then exit to Hypercardput it into DownlistPathelseif (DownlistFolderPath is empty) or (there is not a folder DownlistFolderPath) thenbeepanswer "ﾃ①Downlist.libﾃﾃεｯ竄ｬﾃｫ竏づ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ邃｢ﾃｫ竏づｧ窶ｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ②" & return & "ﾃ窶ｹﾃﾎｩﾃﾃ陛ｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return & "ﾃ①ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃ､mﾃｮFﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit to Hypercardend ifput DownlistFolderPath & "Downlist.lib" into DownlistPathend ifif (the paramcount is 1) and (there is a file DownlistPath) thenput cd fld "Downlist.libﾃｨ窶榲ｨﾃｫﾃﾂｴ" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into OverWriteMethodif OverWriteMethod is "ﾃ､mﾃｮFﾃ竏妥ﾃ" thenanswer "Downlist.libﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ竏妥竕暗窶ｦﾃｫ竏づｧ窶ｺﾃﾂｵﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③" & return & "ﾃｨ窶榲ｨﾃｫﾃﾂｴﾃﾃεｯﾋ堙ｱ@ﾃï｣ｿﾃｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with "ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶ" or "ﾃｭﾂｫﾃ｢ﾂ｡ﾃｨﾃｫﾃｧﾃｻ" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit to Hypercardput it into OverWriteMethodend ifif OverWriteMethod is "ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶ" then put cd fld "DownlistField" into PDSFDataelseput Downlist_to_PDSF(DownlistPath) into PDSFDataget cd fld "DownlistField"repeat with i = 1 to number of lines of itif line i of it is not in PDSFData then put line i of it & return after PDSFDataend repeatsort lines of PDSFData by word 1 to 2 of eachend ifelse put cd fld "DownlistField" into PDSFDataPDSF_to_Downlist DownlistPath,PDSFData,Creatorend Save_Downlist------------------------------------------------------------------------------------on Read_Downlistif the paramcount is 1 thenanswer file "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃïｬﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｩwﾃｭﾃ凝ﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit to Hypercardput it into DownlistPathelseput cd fld "Path of Downlist" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ" into DownlistFolderPathif (DownlistFolderPath is empty) or (there is not a folder DownlistFolderPath) thenbeepanswer "ﾃ①Downlist.libﾃﾃεｯ竄ｬﾃｫ竏づ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ邃｢ﾃｫ竏づｧ窶ｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ②" & return & "ﾃ窶ｹﾃﾎｩﾃﾃ陛ｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return & "ﾃ①ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃ､mﾃｮFﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit to Hypercardend ifput DownlistFolderPath & "Downlist.lib" into DownlistPathif there is not a file DownlistPath then exit to Hypercardend iflock screenput deleteLastReturn(Downlist_to_PDSF(DownlistPath)) into cd fld "DownlistField"unlock screen with dissolve fastend Read_Downlist------------------------------------------------------------------------------------on Clear_Downlistput cd fld "Path of Downlist" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ" into DownlistFolderPathif (DownlistFolderPath is empty) or (there is not a folder DownlistFolderPath) thenbeepanswer "ﾃ①Downlist.libﾃﾃεｯ竄ｬﾃｫ竏づ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ邃｢ﾃｫ竏づｧ窶ｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ②" & return & "ﾃ窶ｹﾃﾎｩﾃﾃ陛ｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return & "ﾃ①ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃ､mﾃｮFﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit to Hypercardend ifput DownlistFolderPath & "Downlist.lib" into DownlistPathif there is not a file DownlistPath then exit to Hypercardput hilite of cd btn "Downlist.libﾃﾃεｬ窶｡ﾃｳeﾃｨﾂ｡ﾃ｣ﾃｩﾃｩﾃｻﾃ②ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ窶｡ﾃｧﾃ古ｨﾃｺ" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into File_Deleteif File_Delete thenMtDeleteFile itput "Downlist.libﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"elseopen file itwrite empty to file itclose file itput "Downlist.libﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｬ窶｡ﾃｳeﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"end ifwait 45 ticksput empty into cd fld "Messages"end Clear_Downlist------------------------------------------------------------------------------------on NomalClipget the selectedtext of cd fld "DownlistField"if it is empty then exit NomalClipif the paramcount = 1 thendelete the selectedline of cd fld "DownlistField"put "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃ閲ﾃ[ﾃ栄ﾃ窶ｦﾃｭﾂﾃｨﾃ古雨ﾃ叡ﾃ曳ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"else put "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃ閲ﾃ[ﾃ栄ﾃ窶ｦﾃｭﾂﾃｨﾃ古嘘ﾃ鋭ﾃ[ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"select line 0 of cd fld "DownlistField"MtPutOnClip itwait 45 ticksput empty into cd fld "Messages"end NomalClip------------------------------------------------------------------------------------on FomalClipget the selectedtext of cd fld "DownlistField"if it is empty then exit FomalCliprepeat with i = 1 to number of lines of itput (cd fld "ﾃﾂｯﾃｳpﾃｯﾃ" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ") && word 1 to 2 of line i of it & " : " after Clipsif (the hilite of cd btn "ﾃｬﾋ凖ｯt" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ") then put word 4 of line i of it & space after Clipsif (the hilite of cd btn "ﾃ欝ﾃ韻ﾃ浦" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ") then put LenForm(7,before,space,word 5 of line i of it) & space after Clipsput char 37 to 90 of line i of it & return after Clipsend repeatif the paramcount = 1 thendelete the selectedline of cd fld "DownlistField"put "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃ閲ﾃ[ﾃ栄ﾃ窶ｦﾃｭﾃ凝･^ﾃ雨ﾃ叡ﾃ曳ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"else put "ﾃ丑ﾃ嘉､ﾃ叡ﾃ益ﾃ閲ﾃ[ﾃ栄ﾃ窶ｦﾃｭﾃ凝･^ﾃ嘘ﾃ鋭ﾃ[ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"select line 0 of cd fld "DownlistField"MtPutOnClip Clipswait 45 ticksput empty into cd fld "Messages"end FomalClip------------------------------------------------------------------------------------on PDSF_to_Downlist DownlistPath,PDSFData,Creatorput empty into PresentForumput 0 into TotalBytesput empty into DownlistDatarepeat with i = 1 to number of lines of PDSFDataget line i of PDSFDataif word 1 of it is not PresentForum thenput word 1 of it into PresentForumput "¥m" & PresentForum & return after DownlistDataend ifput word 2 of it && "/*PDSF:" && (word 4 to 40 of it) && "*/" & return after DownlistDataadd word 5 of it to TotalBytesend repeatput " /*PDSF: Total " & LenForm(9,before,space,TotalBytes) & " bytes */" & return after DownlistDataMtWriteFile DownlistPath,DownlistData,Creatorput "ﾃｳ¥ﾃｱﾃ津､ﾃﾃｳﾏ\ﾃ⑤ﾃ⑤ﾃ⑤ﾃｧﾃ｡ﾃ･v" && TotalBytes & "ﾃ頴ﾃ韻ﾃ曳" into cd fld "Messages"wait 45 ticksput empty into cd fld "Messages"end PDSF_to_Downlistfunction Downlist_to_PDSF DownlistPathput MtReadFile(DownlistPath) into DownlistDataif DownlistData is empty then return emptyput empty into PresentForumput empty into PDSFDatarepeat with i = 1 to (number of lines of DownlistData)-1get line i of DownlistDataif char 1 to 2 of it is "¥m" then put char 3 to 10 of it into PresentForumelse put LenForm(10,after,space,PresentForum) & word 1 of it && colon && word 3 to (number of words of it)-1 of it & return after PDSFDataend repeatreturn PDSFDataend Downlist_to_PDSF</script> </part> <content> <layer>card</layer> <id>4</id> <text><span class="style2">ORUM LIB-# : DATE BYTES DESCRIPTION</span></text> </content> <content> <layer>card</layer> <id>12</id> <text>Foundﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄-Found/Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄</text> </content> <content> <layer>card</layer> <id>15</id> <text>Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲PDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣</text> </content> <content> <layer>card</layer> <id>17</id> <text>ﾃｯ竄ｬﾃｫ竏ﾃｯﾂﾃｱﾂｺﾃ竕暗ｯ竄ｬﾃｫ竏ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｫﾂｺﾃﾃゥownlistﾃﾂｩﾃﾃﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨﾂ｡ﾃ｣ﾃｩ-Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃﾃεｭﾂﾃｨﾃ古嘘ﾃ鋭ﾃ[Downlistﾃ液ﾃ隠ﾃ[ﾃ嘉｣ﾃ栄ﾃﾃεｭﾃ凝･^ﾃ嘘ﾃ鋭ﾃ[</text> </content> <content> <layer>card</layer> <id>13</id> <text>20,21,22,23,22,21,20,19,18,17,16,17,18,19</text> </content> <content> <layer>card</layer> <id>9</id> <text>0,1,2,3</text> </content> <name>ﾃ･ﾃｼﾃｧﾄｱ</name> <script>on mouseupselect line 0 of cd fld "DownlistField"end mouseup------------------------------------------------------------------------------------on closecardselect line 0 of cd fld "DownlistField"put empty into cd fld "Messages"end closecard------------------------------------------------------------------------------------on keydown thekeyif (thekey is numtochar(8)) and (the selectedtext of cd fld "DownlistField" is not empty) thendo "delete" && the selectedline of cd fld "DownlistField"if last char of cd fld "DownlistField" is return then delete last char of cd fld "DownlistField"select line 0 of cd fld "DownlistField"end ifpass keydownend keydown------------------------------------------------------------------------------------on commandkeydown thekeyput cd fld "Creator of TEXTFile" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Creatorif thekey is "a" then select text of cd fld "DownlistField"else if thekey is "c" thenif the shiftkey is down then send "NomalClip" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ" else send "FomalClip" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ"else if thekey is "r" thenif the shiftkey is down then send "Read_Downlist any" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ" else send "Read_Downlist" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ"else if thekey is "s" thenif the shiftkey is down then send "Save_Downlist Creator,any" to cd btn "DownlistPop" else send "Save_Downlist Creator" to cd btn "DownlistPop"else if thekey is "x" thenif the shiftkey is down then send "NomalClip any" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ" else send "FomalClip any" to cd btn "DownlistPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ"else if thekey is numtochar(8) thenif the shiftkey is down then send "Clear_Downlist" to cd btn "DownlistPop" else put empty into cd fld "DownlistField"else pass commandkeydownend commandkeydown</script> </card> card_4194.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>4194</id> <filler1>0</filler1> <cantDelete> <true /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <true /> </dontSearch> <owner>2748</owner> <link rel="stylesheet" type="text/css" href="stylesheet_3137.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>10</top> <right>419</right> <bottom>24</bottom> </rect> <style>rectangle</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name></name> <script></script> </part> <part> <id>2</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>24</top> <right>419</right> <bottom>156</bottom> </rect> <style>scrolling</style> <autoSelect> <true /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <true /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>BrowsingField</name> <script>on mouseupif me is empty thenselect line 0 of meexit mouseupend ifget the selectedtext of meput empty into DwListrepeat with i = 1 to number of lines of itput LenForm(8,after,space,word 1 of cd fld "Messages") & " " & word 2 of cd fld "Messages" & "-" & LenForm(4,before,0,word 1 of line i of it) && colon && ﾂｬword 2 to 3 of line i of it & " " & char 25 to 80 of line i of it & return after DwListend repeatsend "AddToMe DwList" to cd fld "DownlistField" of cd "ﾃ･ﾃｼﾃｧﾄｱ"select line 0 of meend mouseup</script> </part> <part> <id>12</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>427</left> <top>143</top> <right>439</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20000</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Prev. Forum</name> <script>on mouseUpif number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is 1 then exit mouseupget word 1 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop"if it is word 1 of line 1 of cd btn "LIBﾃｫIﾃｫï｣ｿPop" thenget word 1 of last line of cd btn "LIBﾃｫIﾃｫï｣ｿPop"put number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" into ielserepeat with i = (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop")-1 down to 1if word 1 of line i of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not it thenget word 1 of line i of cd btn "LIBﾃｫIﾃｫï｣ｿPop"exit repeatend ifend repeatend ifrepeat with j = i down to 1if word 1 of line j-1 of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not it thenselect line j of cd btn "LIBﾃｫIﾃｫï｣ｿPop"Adjust_FLPopsCallLips j,0,0exit repeatend ifend repeatend mouseUp</script> </part> <part> <id>13</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>439</left> <top>143</top> <right>451</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20001</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Prev. Library</name> <script>on mouseUpif number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is 1 then exit mouseupget word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop"if it is 1 then get number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" else get it-1select line it of cd btn "LIBﾃｫIﾃｫï｣ｿPop"Adjust_FLPopsCallLips it,0,0end mouseUp</script> </part> <part> <id>14</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>475</left> <top>143</top> <right>487</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20002</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Next Library</name> <script>on mouseUpif number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is 1 then exit mouseupget word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop"if it is number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" then get 1 else get it+1select line it of cd btn "LIBﾃｫIﾃｫï｣ｿPop"Adjust_FLPopsCallLips it,0,0end mouseUp</script> </part> <part> <id>15</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>487</left> <top>143</top> <right>499</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20003</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Next Forum</name> <script>on mouseUpif number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is 1 then exit mouseupget word 1 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop"if it is word 1 of last line of cd btn "LIBﾃｫIﾃｫï｣ｿPop" thenput 1 into ielserepeat with i = (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop")+1 to number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop"if word 1 of line i of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not it then exit repeatend repeatend ifselect line i of cd btn "LIBﾃｫIﾃｫï｣ｿPop"Adjust_FLPopsCallLips i,0,0end mouseUp</script> </part> <part> <id>17</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>423</left> <top>62</top> <right>502</right> <bottom>78</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃｩﾃ甘ﾃ凝ｧﾃｻﾃ窶ｺ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>18</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>445</left> <top>70</top> <right>450</right> <bottom>75</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>ﾃｩﾃ甘ﾃ凝ｧﾃｻﾃ窶ｺPop</name> <script>on mouseUphide meput hilite of cd btn "FORUM/LIBﾃｯﾂﾃﾃεｫIﾃｫï｣ｿﾃ榎ﾃ叡ﾃ益ﾃ陰ﾃ叡ﾃ益" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into PopUpVisget the selectedtext of meselect line 0 of meput (cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ") into LiPathif (there is not a folder LiPath) or (LiPath is empty) thenbeepanswer "Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ邃｢ﾃｫ竏づｧ窶ｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃﾂｩﾃ窶ｹﾃﾎｩﾃﾃ陛ｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return & "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃ､mﾃｮFﾃﾂｵﾃﾆ津竕ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit mouseupend ifput Get_ReadFile(it) into TargetFileput hilite of cd btn "ﾃｨ竅ﾃｧ笳甘ﾂｻﾃｨﾃﾃｳﾃｹﾃｨﾃ崚｣ﾂｵﾃﾃεｯ¥ﾃｩﾂｶ" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Verboseput cd fld "Creator of TEXTFile" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into Creatorset the cursor to noneif PopUpVis then VisiPop falseif it is "Niftyﾃ嘉ｧﾃ碓" then NiftyLog_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisif it is "PDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣" then PDSF_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisif it is "DLIﾃ映ﾃ[ﾃ運" then DLI_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisset cursor to noneput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｨIﾃｳﾏ\ﾃ⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"wait 45 ticksput empty into cd fld "Messages"OpenLipsif PopUpVis then VisiPop trueend mouseUp------------------------------------------------------------------------------------on NiftyLog_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisif return &" by NIFTY Corporation" is not in MtReadFile(TargetFile) thenbeepanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢Niftyﾃﾃε嘉ｧﾃ碓ﾃ竏ﾃ･ﾂｩﾃﾂｻﾃ竕･ﾃﾃ催窶ｹﾃﾏ\ﾃﾃ津③"if PopUpVis then VisiPop trueexit to Hypercardend ifput GoOffs_Sort(MtSearchFile(TargetFile,return & "ﾃﾃ賎O ") & return & MtSearchFile(TargetFile,")>GO ")) into Go_Offsrepeat with i = 1 to number of lines of Go_Offsget NiftyLog_Lipseed(TargetFile,line i of Go_Offs,Line (i+1) of Go_Offs)if it is empty then next repeatset itemdelimiter to formfeedNiftyLog_Lipsise LiPath,(item 1 of it),(item 2 of it),(item 3 of it),Verbose,Creatorset itemdelimiter to commaend repeatend NiftyLog_to_Lips------------------------------------------------------------------------------------on PDSF_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisopen file TargetFileread from file TargetFile until returnif it is not ("--For PDS-Finder,Cooked") & return thenclose file TargetFilebeepanswer "PDSF(Cookedﾃ･`ﾃｩﾃ)ﾃﾃε駅ﾃ叡ﾃ雲ﾃ[ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"if PopUpVis then VisiPop trueexit to Hypercardend ifrepeat while char 1 to 2 of it is ("--")read from file TargetFile until returnend repeatput empty into Prev_Lipsising_FilePathrepeat until it is emptyset cursor to 627put LenForm(8,after,space,word 1 of it) && char 1 to 2 of word 2 of it into Lipsising_FileNameput LiPath & Lipsising_FileName into Lipsising_FilePathput word 3 to 25 of it into Lipsising_LibNamedelete last word of Lipsising_LibNameread from file TargetFile for last word of itif Lipsising_FilePath is Prev_Lipsising_FilePath then MtAppendFile Lipsising_FilePath,itelseset cursor to 628if there is a file Lipsising_FilePath thenput "ﾃｧXﾃｪVﾃ⑤ﾃ⑤ﾃ⑤" & Lipsising_FileName into cd fld "Messages"MtWriteFile Lipsising_FilePath,itelseput "ﾃｪVﾃ｣Kﾃ⑤ﾃ⑤ﾃ⑤" & Lipsising_FileName into cd fld "Messages"MtWriteFile Lipsising_FilePath,it,CreatorMtSaveTextRsrc Lipsising_FilePath,Lipsising_LibName,Name_of_Libraryend ifput Lipsising_FilePath into Prev_Lipsising_FilePathend ifread from file TargetFile until returnend repeatclose file TargetFileend PDSF_to_Lips------------------------------------------------------------------------------------on DLI_to_Lips LiPath,TargetFile,Verbose,Creator,PopUpVisget DLI_Lipseed(TargetFile,DLI_ByteOffsets(TargetFile,PopUpVis))set itemdelimiter to formfeedrepeat with i = 1 to number of items of itset cursor to 663+((i-1) mod 16)DLI_Lipsise LiPath,item i of it,Verbose,Creatorend repeatset itemdelimiter to commaend DLI_to_Lips------------------------------------------------------------------------------------function Get_ReadFile Methodanswer file "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃïｬ" & Method & "ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津｢竏ｫﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is empty then exit to Hypercard else return itend Get_ReadFilefunction GoOffs_Sort ListOffsrepeat with i = 1 to number of lines of ListOffsadd 1 to line i of ListOffsend repeatsort lines of ListOffs numericreturn ListOffsend GoOffs_Sortfunction NiftyLog_Lipseed TargetFile,GoOffs1,GoOffs2open file TargetFileif GoOffs2 is empty then read from file TargetFile at GoOffs1 until eof else read from file TargetFile at GoOffs1 for (GoOffs2-GoOffs1)close file TargetFileput LenForm(8,after,space,last word of line 1 of it) into LogLipseed_ForumNameput "ﾃ映ﾃ[ﾃ運ﾃｩﾃ甘ｬﾃｦﾃｭﾃ愿⑤ﾃ⑤ﾃ⑤" & LogLipseed_ForumName into cd fld "Messages"if not (return & "ﾃﾃ全EArch " is not in it or ")>SEArch " is not in it) then return emptyif "ﾃﾃ全EArch " is in last line of it or ")>SEArch " is in last line of it then return emptyput max(MtOffset("ﾃﾃ全EArch ",it)-1,MtOffset(")>SEArch ",it)-1) into Offs_SEArchCommandput MtOffset(return & "ﾃｮ窶佚ｧﾃ愿①ﾃｫﾃｧﾃｪﾃｮﾃ①ﾃｬoﾃｲ^ﾃｧﾅ禿①ﾃｧ竕暗ｪVﾃ①ﾃ①ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｱﾂｺ",it) into Offs_LibHeaderput MtGetByte(it,Offs_LibHeader+42,MtOffset(return & "ﾃﾃ",it,Offs_LibHeader)) into LogLipseed_LibNameListput MtOffset(return,it,Offs_SEArchCommand+5) into Offs_LibDataListput MtOffset(return & "ﾃﾃ",it,Offs_LibDataList) into end_of_LibDataListif end_of_LibDataList=0 then put MtGetByte(it,Offs_LibDataList+1,length of it) into Lipseed_PreLibDataList else put MtGetByte(it,Offs_LibDataList+1,end_of_LibDataList) into Lipseed_PreLibDataListput empty into LogLipseed_LibDataListrepeat with i = 1 to number of lines of Lipseed_PreLibDataListset cursor to 663+((i-1) mod 16)get line i of Lipseed_PreLibDataListif char 1 of it is "L" then put it & return after LogLipseed_LibDataList else put char 1 to 4 of it & " " & word 3 to 4 of it & " " & char 40 to 80 of it & return after LogLipseed_LibDataListend repeatreturn LogLipseed_ForumName & formfeed & LogLipseed_LibNameList & formfeed & LogLipseed_LibDataListend NiftyLog_Lipseedon NiftyLog_Lipsise LiPath,LogLipseed_ForumName,LogLipseed_LibNameList,LogLipseed_LibDataList,Verbose,Creatorput 1 into LogLipseed_SeedsLinerepeat with i = 2 to (number of lines of LogLipseed_LibDataList)+1set cursor to 663+((i-1) mod 16)get char 1 to 4 of line i of LogLipseed_LibDataListif (it is "LIB:") or (it is empty) thenput char 5 to 6 of line LogLipseed_SeedsLine of LogLipseed_LibDataList into Lipsising_LibNumberput LogLipseed_ForumName && Lipsising_LibNumber into cd fld "Messages"put LiPath & LogLipseed_ForumName && Lipsising_LibNumber into Lipsising_FilePathif char 1 of Lipsising_LibNumber is "0" then delete char 1 of Lipsising_LibNumberrepeat with j = 1 to number of lines of LogLipseed_LibNameListif word 1 of line j of LogLipseed_LibNameList is Lipsising_LibNumber thenput quote & char 29 to 80 of line j of LogLipseed_LibNameList & quote into Lipsising_LibNameexit repeatend ifend repeatput line LogLipseed_SeedsLine+1 to (i-1) of LogLipseed_LibDataList & return into Lipsising_LibDataListLipsise_LibData Lipsising_FilePath,Lipsising_LibName,Lipsising_LibDataList,Verbose,Creatorput i into LogLipseed_SeedsLineend ifend repeatend NiftyLog_Lipsisefunction DLI_ByteOffsets TargetFile,PopUpVisput "ﾃ｢ï｣ｿﾃｪﾃ陛ｭﾃ愿⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"get return & MtReadFile(TargetFile) & return & returnput 0 into Present_ByteOffsetput empty into DLI_ByteOffsetListrepeatput MtOffset(return & "ﾃt ﾃy",it,Present_ByteOffset) into Present_ByteOffsetif Present_ByteOffset is 0 then exit repeatput Present_ByteOffset & comma after DLI_ByteOffsetListput MtOffset(return & return,it,Present_ByteOffset) into Present_ByteOffsetput Present_ByteOffset & return after DLI_ByteOffsetListend repeatif DLI_ByteOffsetList is empty thenbeepput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃïｬﾃ映ﾃ[ﾃ運ﾃ邃｢ﾃ窶ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津竕暗ﾂｵﾃﾎｩﾃ③" after cd fld "Messages"if PopUpVis then VisiPop trueexit to Hypercardend ifrepeat with i = 1 to number of lines of DLI_ByteOffsetListsubtract 1 from item 1 of line i of DLI_ByteOffsetListsubtract 2 from item 2 of line i of DLI_ByteOffsetListend repeatreturn DLI_ByteOffsetListend DLI_ByteOffsetsfunction DLI_Lipseed TargetFile,DLI_ByteOffsetListput empty into DLILipseed_Dataseedrepeat with i = 1 to number of lines of DLI_ByteOffsetListput MtExtractFile(TargetFile,item 1 of line i of DLI_ByteOffsetList,item 2 of line i of DLI_ByteOffsetList) after DLILipseed_Dataseedend repeatput "DLIﾃ映ﾃ[ﾃ運ﾃｯﾅ禿､竏妥ｭﾃ愿⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"put empty into DLILipseed_PreDataListrepeat with j = 1 to (number of lines of DLILipseed_Dataseed)set cursor to 663+((j-1) mod 16)if char 3 of line j of DLILipseed_Dataseed is not "ﾃy" then put char 3 to 80 of line j of DLILipseed_Dataseed & return after DLILipseed_PreDataListend repeatput 1 into DLILipseed_SeedsLineput empty into DLILipseed_DataListrepeat with k = 2 to (number of lines of DLILipseed_PreDataList)+1set cursor to 663+((k-1) mod 16)get char 1 of line k of DLILipseed_PreDataListif (it is not an integer) and (it is not space) thenput line DLILipseed_SeedsLine to (k-1) of DLILipseed_PreDataList & return & formfeed after DLILipseed_DataListput k into DLILipseed_SeedsLineend ifend repeatreturn DLILipseed_DataListend DLI_Lipseedon DLI_Lipsise LiPath,DLILipseed_LibData,Verbose,Creatorput LenForm(8,after,space,word 1 of line 1 of DLILipseed_LibData) && word 2 of DLILipseed_LibData into DLILipseed_FileNameput LiPath & DLILipseed_FileName into Lipsising_FilePathput word 3 to 40 of line 1 of DLILipseed_LibData into Lipsising_LibNameput line 2 to (number of lines of DLILipseed_LibData) of DLILipseed_LibData & return into Lipsising_LibDataListput DLILipseed_FileName into cd fld "Messages"Lipsise_LibData Lipsising_FilePath,Lipsising_LibName,Lipsising_LibDataList,Verbose,Creatorend DLI_Lipsiseon Lipsise_LibData Lipsising_FilePath,Lipsising_LibName,Lipsising_LibDataList,Verbose,Creatorput cd fld "Messages" into Lipsising_FileNameif there is a file Lipsising_FilePath thenput 0 into NewData_Countput empty into ReNewDataListput MtReadFile(Lipsising_FilePath) into Plain_LipsDataput return & Plain_LipsData into Meta_LipsDatarepeat with i = 1 to number of lines of Lipsising_LibDataListset cursor to 663+((i-1) mod 16)get line i of Lipsising_LibDataListif it is not in Meta_LipsData thenput char 1 to 6 of it into Checking_DataNumberif return & Checking_DataNumber is in Meta_LipsData thenrepeat with j = 2 to number of lines of Meta_LipsDataif char 1 to 6 of line j of Meta_LipsData is Checking_DataNumber then put j & return after ReNewDataListend repeatend ifput it & return after Meta_LipsDataadd 1 to NewData_Countif Verbose then put Lipsising_FileName & "ﾃ⑤ﾃ⑤ﾃ⑤" & NewData_Count & "ﾃ･ﾃｨﾃｬoﾃｲ^" into cd fld "Messages"end ifend repeatif NewData_Count>0 then put Lipsising_FileName & "ﾃ⑤ﾃ⑤ﾃ⑤" & NewData_Count & "ﾃ･ﾃｨﾃｬoﾃｲ^" into cd fld "Messages"repeat with k = number of lines of ReNewDataList down to 1set cursor to 663+((k-1) mod 16)delete line (line k of ReNewDataList) of Meta_LipsDataend repeatdelete char 1 of Meta_LipsDataif Meta_LipsData is not Plain_LipsData thenif Verbose then put "ﾃ⑤ﾃ⑤ﾃ⑤ﾃｪﾃﾃｳﾃｹﾃｭﾃ" after cd fld "Messages"sort lines of Meta_LipsData descending numeric by word 1 of eachMtWriteFile Lipsising_FilePath,Meta_LipsDataend ifelseput Lipsising_FileName & "ﾃ⑤ﾃ⑤ﾃ⑤" & (number of lines of Lipsising_LibDataList) & "ﾃ･ﾃｨﾃｬoﾃｲ^" into cd fld "Messages"MtWriteFile Lipsising_FilePath,Lipsising_LibDataList,CreatorMtSaveTextRsrc Lipsising_FilePath,Lipsising_LibName,Name_of_Libraryend ifend Lipsise_LibData</script> </part> <part> <id>19</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>423</left> <top>94</top> <right>502</right> <bottom>110</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>PDSFﾃｨﾃｫﾃﾂｴﾃｨoﾃﾂｵ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>20</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>423</left> <top>78</top> <right>502</right> <bottom>94</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃ映ﾃ[ﾃ運ﾃｧﾃ古ｨﾃｺ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>21</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>430</left> <top>83</top> <right>435</right> <bottom>88</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>extend</textStyle> <textStyle>condense</textStyle> <name>ﾃ映ﾃ[ﾃ運ﾃｧﾃ古ｨﾃｺPop</name> <script>on mouseUphide meput hilite of cd btn "FORUM/LIBﾃｯﾂﾃﾃεｫIﾃｫï｣ｿﾃ榎ﾃ叡ﾃ益ﾃ陰ﾃ叡ﾃ益" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into PopUpVisput the selectedtext of me into Delete_Methodselect line 0 of meif hilite of cd btn "Lipsﾃ映ﾃ[ﾃ運ﾃｧﾃ古ｨﾃｺﾃｩﾃｻﾃ窶ｦﾃ､mﾃｮFﾃﾃε雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃ竏" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" thenanswer Delete_Method & "ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" & return & "ﾃﾃ甘ﾃ偲ﾂｵﾃﾂ｢ﾃ竕暗竏妥ﾂｩ?" with "ﾃｧﾃ古ｨﾃｺﾃｩﾂｿﾃｧs" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then exit mouseupend ifif PopUpVis then VisiPop falseput Delete_Method & "ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃ⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"get Delete_LipsFile(Delete_Method)repeat with i = 1 to number of lines of itset cursor to 822+((i-1) mod 4)MtDeleteFile(line i of it)end repeatset cursor to noneput "ﾃ､ﾃﾃｳﾏ\" after cd fld "Messages"wait 30 ticksput empty into cd fld "Messages"OpenLipsif PopUpVis then VisiPop trueend mouseUp------------------------------------------------------------------------------------function Delete_LipsFile Delete_Methodif Delete_Method is "ﾃﾂｱﾃﾃε嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､" then return line (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop") of cd btn 1if Delete_Method is "ﾃﾂｱﾃﾃε液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉" thenget "T:TEXT" & return & "N:" & word 1 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop"return MtFilesInFldr(cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ",it)end ifif Delete_Method is "ﾃ竏妥笳甘ﾆ津ﾃε映ﾃ[ﾃ運" then return MtFilesInFldr(cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ","T:TEXT")return emptyend Delete_LipsFile</script> </part> <part> <id>29</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>437</left> <top>101</top> <right>442</right> <bottom>106</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>PDSFﾃｨﾃｫﾃﾂｴﾃｨoﾃﾂｵPop</name> <script>on mouseUphide meput hilite of cd btn "FORUM/LIBﾃｯﾂﾃﾃεｫIﾃｫï｣ｿﾃ榎ﾃ叡ﾃ益ﾃ陰ﾃ叡ﾃ益" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ" into PopUpVisget the selectedtext of meselect line 0 of meput cd fld "Messages" into BackUp_Messageput cd fld "Number of Files" into BackUp_NumFilesExportPDSF it,cd fld "Creator of TEXTFile" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ",PopUpVisset cursor to noneput "ﾃｨﾃｫﾃﾂｴﾃｨoﾃﾂｵﾃ邃｢ﾃｨIﾃｳﾏ\ﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③" into cd fld "Messages"wait 45 tickslock screenput BackUp_Message into cd fld "Messages"put BackUp_NumFiles into cd fld "Number of Files"unlock screen with dissolve fastif PopUpVis then VisiPop trueend mouseUp------------------------------------------------------------------------------------on ExportPDSF Method,Creator,PopUpVisput ask_ExportFileName(Method) into ExportFileNameput get_ExportLiPath(Method) into ExportLiPathif PopUpVis then VisiPop falseopen file ExportFileNamewrite "--For PDS-Finder,Cooked" & return to file ExportFileNamerepeat with i = 1 to number of lines of ExportLiPathset cursor to 710-((i-1) mod 9)write Lips_To_PDSF(line i of ExportLiPath) to file ExportFileNameend repeatclose file ExportFileNameif Creator is not "ttxt" then MtSetFTC ExportFileName,,Creatorend ExportPDSF------------------------------------------------------------------------------------function ask_ExportFileName Methodif Method is "ﾃﾂｱﾃﾃε嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､" thenget line (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop") of cd btn 2put word 1 of it && word 2 of it into ExportLibelse if Method is "ﾃﾂｱﾃﾃε液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉" then put word 1 of line (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop") of cd btn 2 into ExportLibelse if Method is "ﾃ竏妥笳甘ﾆ津ﾃε映ﾃ[ﾃ運" thenget the dateif "." is in it then set the itemdelimiter to "." else set the itemdelimiter to "/"repeat with i = 1 to 3if (length of item i of it)=1 then put "0" before item i of itend repeatput it into ExportLibend ifask file "ﾃｯ竄ｬﾃｫ竏づ竏妥ﾃPDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｱﾂｺﾃｫO:" with ExportLib & ".PDSF"if it is empty then exit to Hypercardreturn itend ask_ExportFileNamefunction get_ExportLiPath Methodif Method is "ﾃﾂｱﾃﾃε嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､" then return line (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop") of cd btn 1else if Method is "ﾃﾂｱﾃﾃε液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉" thenput word 1 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop" into Present_Forumget word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop"repeat with i = it-1 down to 0if word 1 of line i of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not Present_Forum thenput i+1 into FirstLine_ThisForumexit repeatend ifend repeatrepeat with j = it+1 to (number of lines of cd btn "LIBﾃｫIﾃｫï｣ｿPop")+1if word 1 of line j of cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not Present_Forum thenput j-1 into LastLine_ThisForumexit repeatend ifend repeatreturn line FirstLine_ThisForum to LastLine_ThisForum of cd btn 1else if Method is "ﾃ竏妥笳甘ﾆ津ﾃε映ﾃ[ﾃ運" then return cd btn 1end get_ExportLiPathfunction Lips_To_PDSF ExportLiPathput PathToFile(ExportLiPath) into ExportLibNumberput MtReadTextRsrc(ExportLiPath,Name_of_Library) into ExportLibNameput "PDSFﾃｯﾅ禿､竏妥⑤ﾃ⑤ﾃ⑤" & ExportLibNumber && ExportLibName into cd fld "Messages"put word 1 of ExportLibNumber && word 2 of ExportLibNumber into ExportLibNumberput MtReadFile(ExportLiPath) into ExportLibDataput empty into ExportPDSFDataput 1 into LibPartNumberput 0 into ReadingPointopen file ExportLiPathrepeatread from file ExportLiPath at ReadingPoint for 30000if it is empty then exit repeatif LibPartNumber=1 then put ExportLibNumber && ExportLibName after ExportPDSFData else put ExportLibNumber & comma & LibPartNumber && ExportLibName after ExportPDSFDataif last char of it is not return then delete last line of itput length of it into LibData_Limitedput space & LibData_Limited & return & it after ExportPDSFDataadd 1 to LibPartNumberadd LibData_Limited to ReadingPointend repeatclose file ExportLiPathreturn ExportPDSFDataend Lips_To_PDSF</script> </part> <part> <id>40</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>451</left> <top>143</top> <right>463</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20006</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Prev. Data</name> <script>on mouseUpif me is 0 & return then send "mouseup" to cd btn 2elseget last line of medelete last line of meCallLips (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop"),last line of me,itend ifend mouseUp</script> </part> <part> <id>41</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>463</left> <top>143</top> <right>475</right> <bottom>156</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>20007</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>Next Data</name> <script>on mouseUpif me is 0 then send "mouseup" to cd btn 3 else CallLips (word 2 of the selectedline of cd btn "LIBﾃｫIﾃｫï｣ｿPop"),me,0end mouseUp</script> </part> <part> <id>42</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>11</left> <top>155</top> <right>339</right> <bottom>170</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>12</textHeight> <name>Messages</name> <script>on mousedownif cd btn "LIBﾃｫIﾃｫï｣ｿPop" is empty then exit mousedownget the clicklocset the loc of cd btn "LIBﾃｫIﾃｫï｣ｿPop" to itshow cd btn "LIBﾃｫIﾃｫï｣ｿPop"click at ithide cd btn "LIBﾃｫIﾃｫï｣ｿPop"end mousedown</script> </part> <part> <id>53</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>423</left> <top>126</top> <right>502</right> <bottom>141</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>LIBﾃｫIﾃｫï｣ｿ</name> <script>on mousedownif cd btn "LIBﾃｫIﾃｫï｣ｿPop" is not empty then ShowPopend mousedown</script> </part> <part> <id>59</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>339</left> <top>155</top> <right>419</right> <bottom>170</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>right</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <textHeight>12</textHeight> <name>Number of Files</name> <script>on mousedownif cd btn "LIBﾃｫIﾃｫï｣ｿPop" is empty then exit mousedownget the clicklocset the loc of cd btn "LIBﾃｫIﾃｫï｣ｿPop" to itshow cd btn "LIBﾃｫIﾃｫï｣ｿPop"click at ithide cd btn "LIBﾃｫIﾃｫï｣ｿPop"end mousedown</script> </part> <part> <id>43</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>466</left> <top>129</top> <right>471</right> <bottom>134</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name>LIBﾃｫIﾃｫï｣ｿPop</name> <script>on mouseUphide meif the selectedtext of me is not in cd fld "Messages" thenAdjust_FLPopsCallLips (word 2 of the selectedline of me),0,0end ifend mouseUp</script> </part> <part> <id>54</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>423</left> <top>110</top> <right>502</right> <bottom>126</bottom> </rect> <style>standard</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>condense</textStyle> <textStyle>outline</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱ</name> <script>on mousedownShowPopend mousedown</script> </part> <part> <id>55</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>443</left> <top>116</top> <right>448</right> <bottom>121</bottom> </rect> <style>popup</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>center</textAlign> <font>Osaka</font> <textSize>12</textSize> <textStyle>condense</textStyle> <name>ﾃ･ﾃｼﾃｧﾄｱPop</name> <script>on mouseUphide meget word 1 of the selectedtext of meselect line 0 of meGoCard "ﾃ･ﾃｼﾃｧﾄｱ"send "FileFind it" to cd btn "ﾃ･ﾃｼﾃｧﾄｱPop" of cd "ﾃ･ﾃｼﾃｧﾄｱ"end mouseUp</script> </part> <part> <id>57</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>11</left> <top>156</top> <right>95</right> <bottom>171</bottom> </rect> <style>popup</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｫIﾃｫï｣ｿPop</name> <script>on mouseUpget the selectedtext of meif it is word 1 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop" then exit mouseuplock screenput word 2 of the selectedline of me into SeledForumLineset itemdelimiter to formfeedput item SeledForumLine of cd btn 3 into cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop"set itemdelimiter to commaselect line 1 of cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop"unlock screenget LenForm(8,after,space,it) && line 1 of cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop"get MtListMatch(cd btn "LIBﾃｫIﾃｫï｣ｿPop",it)select line it of cd btn "LIBﾃｫIﾃｫï｣ｿPop"CallLips it,0,0end mouseUp</script> </part> <part> <id>58</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>95</left> <top>156</top> <right>347</right> <bottom>171</bottom> </rect> <style>popup</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <textAlign>left</textAlign> <font>Osaka</font> <textSize>9</textSize> <textStyle>plain</textStyle> <name>ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop</name> <script>on mouseUpget the selectedtext of meif it is word 2 to 40 of the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop" then exit mouseupget LenForm(8,after,space,the selectedtext of cd btn "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｫIﾃｫï｣ｿPop") && the selectedtext of meget MtListMatch(cd btn "LIBﾃｫIﾃｫï｣ｿPop",it)select line it of cd btn "LIBﾃｫIﾃｫï｣ｿPop"CallLips it,0,0end mouseUp</script> </part> <content> <layer>card</layer> <id>1</id> <text># DATE BYTES DESCRIPTION</text> </content> <content> <layer>card</layer> <id>18</id> <text>Niftyﾃ嘉ｧﾃ碓PDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣DLIﾃ映ﾃ[ﾃ運</text> </content> <content> <layer>card</layer> <id>21</id> <text>ﾃﾂｱﾃﾃε嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃﾂｱﾃﾃε液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ竏妥笳甘ﾆ津ﾃε映ﾃ[ﾃ運</text> </content> <content> <layer>card</layer> <id>29</id> <text>ﾃﾂｱﾃﾃε嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃﾂｱﾃﾃε液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃ竏妥笳甘ﾆ津ﾃε映ﾃ[ﾃ運</text> </content> <content> <layer>card</layer> <id>55</id> <text>Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲PDSFﾃ液ﾃ院ﾃ韻ﾃ嘉｣</text> </content> <name>ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦</name> <script>on opencardif cd btn 4 is "ReLoad" then OpenLipspass opencardend opencardon closecardselect line 0 of cd fld "BrowsingField"set the scroll of cd fld "BrowsingField" to 0end closecard------------------------------------------------------------------------------------on OpenLipsput cd fld "Path of Lips" of cd "ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ" into LiPathput "Lipsﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ愿竕暗竏妥⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"put "1,2,3,4,7,8,11,12,13,17,18" into EnableListput MtFilesInFldr(LiPath,"T:TEXT") into FilesInLipsif FilesInLips is empty thenlock screenLips_CleanUpParamsSetAble EnableList,falseunlock screen with dissolve fastelseput FilesInLips into cd btn 1put path2File(FilesInLips) into cd btn 2put empty into LibNameListput empty into FNamePopput empty into LibNumPoprepeat with i = 1 to number of lines of FilesInLipsset cursor to 710-((i-1) mod 9)put line i of cd btn 2 into FLibNumberput MtReadTextRsrc(line i of FilesInLips,Name_of_Library) into FLibNameput FLibNumber && FLibName & return after LibNameListif word 1 of FLibNumber is not in FNamePop thenput word 1 of FLibNumber & return after FNamePopput formfeed after LibNumPopend ifput word 2 of FLibNumber && FLibName & return after LibNumPopend repeatset cursor to nonedelete char 1 of LibNumPopput LibNumPop into cd btn 3put LibNameList into cd btn "LIBﾃｫIﾃｫï｣ｿPop"select line 1 of cd btn "LIBﾃｫIﾃｫï｣ｿPop"put FNamePop into cd btn "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｫIﾃｫï｣ｿPop"Adjust_FLPopsCallLips 1,0,0lock screenSetAble EnableList,trueunlock screen with dissolve fastend ifput empty into cd btn 4end OpenLips------------------------------------------------------------------------------------on CallLips LipsNum,LipsReadAddless,LipsReadLengthput line LipsNum of cd btn 1 into Called_LiPathif there is not a file Called_LiPath thenbeepput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｫ竏づｧ窶ｺﾃﾂｵﾃ窶ｹﾃﾏ\ﾃﾃ津③ﾃｧﾆ津ｬﾂｫﾃｧﾃｻﾃ窶ｺﾃﾂｵﾃ窶ｹﾃ竏妥⑤ﾃ⑤ﾃ⑤" into cd fld "Messages"wait 45 ticksOpenLipsexit to Hypercardend iflock screenput (cd fld "ﾃｧ竕暗ｫﾃづｯ¥ﾃｩﾂｶﾃ頴ﾃ韻ﾃ曳ﾃｪﾃｮ" of cd "ﾃｨ竅ﾃｧ笳甘ｪ窶ｺﾃｭﾃ") into Output_MaxBytesselect line 0 of cd fld "BrowsingField"set the scroll of cd fld "BrowsingField" to 0open file Called_LiPathput the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop" into cd fld "Messages"if LipsReadLength=0 thenread from file Called_LiPath at LipsReadAddless for Output_MaxBytes+2if LipsReadAddless=0 then put 0 & return into cd btn 11 else put LipsReadAddless & return after cd btn 11if length of it is Output_MaxBytes+2 thendelete last line of itadd length of it to cd btn 12put " #" & number of lines of cd btn 11 after cd fld "Messages"elseput 0 into cd btn 12if LipsReadAddless<>0 then put " #" & number of lines of cd btn 11 after cd fld "Messages"end ifget deleteLastReturn(it)elseread from file Called_LiPath at LipsReadAddless for LipsReadLength-(last line of cd btn 11)-1put LipsReadAddless+LipsReadLength-(last line of cd btn 11) into cd btn 12put " #" & number of lines of cd btn 11 after cd fld "Messages"end ifput "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｪﾃｮﾃ⑦" & number of lines of it into cd fld "Number of Files"put it into cd fld "BrowsingField"close file Called_LiPathunlock screen with dissolve fastend CallLips------------------------------------------------------------------------------------on Lips_CleanUpParamsput "1,2,3,4,11,12,14,17,18" into CleanUpBtnListput "2,3,4" into CleanUpFldListrepeat with i = 1 to number of items of CleanUpBtnListput empty into cd btn (item i of CleanUpBtnList)end repeatrepeat with j = 1 to number of items of CleanUpFldListput empty into cd fld (item j of CleanUpFldList)end repeatselect line 0 of cd fld 2set scroll of cd fld 2 to 0select line 0 of cd btn 14select line 0 of cd btn 17select line 0 of cd btn 18end Lips_CleanUpParamson SetAble EnableList,Enabled_Propertyrepeat with i = 1 to number of items of EnableListset enabled of cd btn (item i of EnableList) to Enabled_Propertyend repeatend SetAbleon Adjust_FLPopsget the selectedtext of cd btn "LIBﾃｫIﾃｫï｣ｿPop"put word 1 of it into Seled_ForumNameput word 2 to 40 of it into Seled_LibNameput MtListMatch(cd btn "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｫIﾃｫï｣ｿPop",Seled_ForumName) into FPopLineselect line FPopLine of cd btn "ﾃ液ﾃ羽ﾃ[ﾃ嘉｢ﾃ嘉ﾃｫIﾃｫï｣ｿPop"set itemdelimiter to formfeedput item FPopLine of cd btn 3 into cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop"set itemdelimiter to commaput MtListMatch(cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop",Seled_LibName) into LPopLineselect line LPopLine of cd btn "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｫIﾃｫï｣ｿPop"end Adjust_FLPopson VisiPop loglock screenset visible of cd btn 17 of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦" to logset visible of cd btn 18 of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦" to logunlock screen with dissolve fastend VisiPop</script> </card>